home *** CD-ROM | disk | FTP | other *** search
/ Extra Heft 12 / Extra Heft12.bin / input64 / 05_85.d64 / adressen 64 (.txt) next >
Commodore BASIC  |  1995-08-18  |  5KB  |  222 lines
  1. 100 REM ***********************
  2. 110 REM     UNITED COMPUTER
  3. 120 REM         NATION
  4. 130 REM   STEINFELDERSTR. 56
  5. 140 REM 4050 MOENCHENGLADBACH 3
  6. 150 REM ***********************
  7. 160 REM  UCN ADRESSEN V1.5
  8. 170 REM  (C) 1988 BY U.C.N.
  9. 180 REM ***********************
  10. 200 :
  11. 210 REM INIT
  12. 220 N=0:REM AKTUELLE ANZAHL ADRESSEN
  13. 230 D=100:REM DIMENSION ADRESSENFELD
  14. 240 DIM KO$(8),MI$(D,8),A(D),S(D,1)
  15. 250 FORI=0TO5:READKO$(I):NEXT
  16. 260 L$="                    "
  17. 280 DATA NAME/VORN.
  18. 290 DATA STRASSE...
  19. 300 DATA PLZ/ORT...
  20. 310 DATA TELEFON...
  21. 320 DATA BERUF.....
  22. 340 DATA BEMERKUNG.
  23. 360 POKE53280,0:POKE53281,0
  24. 370 REM MENUE
  25. 380 GOSUB30000
  26. 390 PRINT"                 MENUE [146]"
  27. 400 PRINT"   [156][164][157]1[146][158]  LOAD ADRESSEN"
  28. 410 PRINT"   [156][164][157]2[146][158]  NEUE ADRESSEN"
  29. 420 PRINT"   [156][164][157]3[146][158]  SUCHE NACH ADRESSE"
  30. 430 PRINT"   [156][164][157]4[146][158]  AENDERE ADRESSE"
  31. 440 PRINT"   [156][164][157]5[146][158]  LOESCHE 1 ADRESSE "
  32. 450 PRINT"   [156][164][157]6[146][158]  LISTE DER ADRESSEN"
  33. 460 PRINT"   [156][164][157]7[146][158]  SAVE ADRESSEN"
  34. 480 PRINT"   [156][164][157]8[146][158]  END"
  35. 490 GETX$:IFX$=""THEN490
  36. 500 X=VAL(X$):IFX=0THEN490
  37. 510 ON X GOSUB 560,710,2560,900,1030,1160,1900,2620
  38. 540 GOTO360
  39. 550 :
  40. 560 REM LOAD ADRESSEN
  41. 570 GOSUB30000:PRINT"[153]     [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  42. 580 PRINT"      ADRESSEN-DATEI LADEN [146]"
  43. 590 GOSUB2460:REM KASS/DISK
  44. 600 IFKD$=CHR$(13)THEN690
  45. 610 IFKD$="K"THENOPEN1,1,0,"ADRESSENDATEI"
  46. 620 IFKD$="D"THENOPEN15,8,15,"I0":CLOSE15:OPEN1,8,8,"0:ADRESSENDATEI,S,R"
  47. 630 PRINT"[158]ADRESSENDATEI WIRD EINGELESEN."
  48. 640 INPUT#1,N
  49. 650 FORI=1TON:FORJ=0TO5:INPUT#1,MI$
  50. 660 IFASC(MI$)<32THENMI$=MID$(MI$,2):GOTO660
  51. 670 MI$(I,J)=MI$:NEXT:NEXT:CLOSE1
  52. 690 RETURN
  53. 700 :
  54. 710 REM NEUE ADRESSE
  55. 720 N=N+1
  56. 730 FORJ=0TO5:MI$(N,J)="*":NEXT
  57. 740 GOSUB30000:PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  58. 750 PRINT" NEUE ADRESSE [146][153]";
  59. 760 PRINT,FRE(0);"BYTE FREI"
  60. 770 PRINT"[164][164][164][164][164][164][164][164][164][164]"
  61. 780 FORI=0TO5
  62. 790 PRINT"[153]";KO$(I);"[146]? ";MI$(N,I)
  63. 800 PRINT"[145][156]",:INPUTMI$(N,I)
  64. 810 NEXT
  65. 820 PRINT"ALLE ANGABEN OK (J/N) ?"
  66. 830 GETX$:IFX$<>"J"ANDX$<>"N"THEN830
  67. 840 IFX$="N"THEN740
  68. 850 PRINT"WEITERE NEUE ADRESSEN (J/N) ?"
  69. 860 GETX$:IFX$<>"J"ANDX$<>"N"THEN860
  70. 870 IFX$="J"THEN710
  71. 880 RETURN
  72. 890 :
  73. 900 REM AENDERUNG DER ADRESSDATEN
  74. 910 GOSUB30000:PRINT"   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  75. 920 PRINT"    AENDERUNG DER ADRESSDATEN [146]"
  76. 930 GOSUB2350:IFX=0THEN1010
  77. 940 PRINT"[145][145][145][145][145][145][145][145]"
  78. 950 FORI=0TO5
  79. 960 PRINT"[129]",:INPUTMI$(X,I)
  80. 970 NEXT
  81. 980 PRINT"DATEN JETZT OK (J/N) ?"
  82. 990 GETX$:IFX$<>"J"ANDX$<>"N"THEN990
  83. 1000 IFX$="N"THEN940
  84. 1010 RETURN
  85. 1020 :
  86. 1030 REM EINE ADRESSE LOESCHEN
  87. 1040 GOSUB30000:PRINT"     [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  88. 1050 PRINT"      EINE ADRESSE LOESCHEN [146]"
  89. 1060 GOSUB2350:IFX=0THEN1140
  90. 1070 PRINT"ADRESSE LOESCHEN (J/N) ?"
  91. 1080 GETX$:IFX$<>"J"ANDX$<>"N"THEN1080
  92. 1090 IFX$="N"THEN1140
  93. 1100 PRINT"[145]ADRESSE WIRD GELOESCHT !"
  94. 1110 FORI=XTON-1:FORJ=0TO5
  95. 1120 MI$(I,J)=MI$(I+1,J)
  96. 1130 NEXT:NEXT:N=N-1
  97. 1140 RETURN
  98. 1150 :
  99. 1160 REM LISTE DER ADRESSEN
  100. 1170 GOSUB30000:PRINT"[129]","[164][164][164][164][164][164][164][164][164][164][164][164][164]"
  101. 1180 PRINT," ADRESSDATEN [146]"
  102. 1190 PRINT"[156]   [164][157]1[146][154]  BILDSCHIRM"
  103. 1200 PRINT"AUF DRUCKER:"
  104. 1210 PRINT"[156]   [164][157]2[146][154]  ALLE DATEN"
  105. 1220 PRINT"[156]   [164][157]3[146][154]  ADRESSENAUFKLEBER"
  106. 1230 PRINT"[156]   [164][157]4[146][154]  ADRESSENLISTE"
  107. 1240 PRINT"[156]   [164][157]5[146][154]  EINZELNE ADRESSE"
  108. 1260 GETX$:IFX$=""THEN1260
  109. 1270 X=VAL(X$):IFX=0ORX>5THEN1260
  110. 1280 ONXGOTO1300,1420,1480,1710,1590
  111. 1290 :
  112. 1300 REM BILDSCHIRM
  113. 1310 FORX=1TON
  114. 1320 GOSUB30000:PRINT"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  115. 1330 PRINT" ADRESSLISTE: [146][156]"
  116. 1340 GOSUB2400:REM ADRESSE
  117. 1350 PRINT"[129][164][157]N[146]AECHSTE ADRESSE [145][164][157]V[146]ORIGE ADRESSE [145][164][157]E[146]NDE"
  118. 1360 GETX$:IFX$<>"N"ANDX$<>"V"ANDX$<>"E"ANDX$<>CHR$(13)THEN1360
  119. 1370 IFX$="V"THENX=X-2:IFX<0THENX=X+1
  120. 1380 IFX$="E"THENX=N
  121. 1390 NEXT
  122. 1400 RETURN
  123. 1410 :
  124. 1420 REM GESAMTANGABEN
  125. 1430 FORX=1TON
  126. 1440 GOSUB2100:REM ALLE DATEN DRUCKEN
  127. 1450 NEXT
  128. 1460 RETURN
  129. 1470 :
  130. 1480 REM ADRESSENAUFKLEBER
  131. 1490 OPEN4,4:CMD4
  132. 1500 FORI=1TON
  133. 1510 PRINT"HERRN/FRAU"
  134. 1520 PRINTMI$(I,0)
  135. 1530 PRINTMI$(I,1):PRINT
  136. 1540 PRINTMI$(I,2)
  137. 1550 PRINT:PRINT:PRINT:PRINT
  138. 1560 NEXT:PRINT#4:CLOSE4
  139. 1570 RETURN
  140. 1580 :
  141. 1590 REM EINZELNE ADRESSE
  142. 1600 GOSUB30000:PRINT"[153]   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  143. 1610 PRINT"    EINZELNE ADRESSE AUSDRUCKEN [146]"
  144. 1620 GOSUB2350:IFX=0THEN1690
  145. 1630 OPEN4,4:CMD4
  146. 1640 FORJ=0TO2
  147. 1650 PRINTMI$(X,J)
  148. 1660 NEXT:PRINT
  149. 1670 FORI=1TO4:PRINT"----------";:NEXT:PRINT
  150. 1680 PRINT#4:CLOSE4
  151. 1690 RETURN
  152. 1700 :
  153. 1710 REM ADRESSENLISTE
  154. 1720 OPEN4,4:CMD4:PRINT
  155. 1730 PRINTCHR$(1);CHR$(1);"    ADRESSENLISTE"
  156. 1740 PRINT:PRINT
  157. 1750 FORI=1TON
  158. 1760 FORJ=0TO2:PRINTLEFT$(MI$(I,J)+L$,21);:NEXT
  159. 1780 NEXT:PRINT:PRINT
  160. 1790 PRINT#4:CLOSE4
  161. 1800 RETURN
  162. 1810 :
  163. 1900 REM SAVE DATEI
  164. 1910 GOSUB30000:PRINT"[150]   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  165. 1920 PRINT"    ADRESSENDATEI SPEICHERN [146]"
  166. 1930 GOSUB2460:REM KASS/DISK
  167. 1940 IFKD$=CHR$(13)THEN2040
  168. 1950 IFKD$="K"THENOPEN1,1,1,"ADRESSENDATEI"
  169. 1960 IFKD$="D"THENOPEN15,8,15,"I0":CLOSE15:OPEN1,8,8,"@0:ADRESSENDATEI,S,W"
  170. 1970 PRINT"[158]ADRESSENDATEI WIRD GESPEICHERT."
  171. 1980 PRINT#1,N
  172. 1990 FORI=1TON:FORJ=0TO5
  173. 2000 PRINT#1,MI$(I,J)
  174. 2010 NEXT:NEXT
  175. 2020 CLOSE1
  176. 2040 RETURN
  177. 2050 :
  178. 2100 REM DRUCK
  179. 2110 OPEN4,4:CMD4
  180. 2115 FORJ=0TO5
  181. 2120 PRINTKO$(J);".... ";MI$(X,J)
  182. 2130 NEXT:PRINT
  183. 2140 FORI=1TO4:PRINT"----------";:NEXT:PRINT
  184. 2150 PRINT#4:CLOSE4
  185. 2160 RETURN
  186. 2170 :
  187. 2330 REM SUCHROUTINE NACH NAME
  188. 2340 GOSUB30000
  189. 2350 INPUT"[129]NAME DER PERSON ? *[157][157][157]";NA$
  190. 2360 X=0:LN=LEN(NA$):PRINT
  191. 2370 FORI=1TON:IFLEFT$(MI$(I,0)+L$,LN)=NA$THENX=I:I=N
  192. 2380 NEXT
  193. 2390 IFX=0THENPRINT"[158]PERSON NICHT GEFUNDEN!":FORW=1TO999:NEXT:GOTO2440
  194. 2400 PRINT"[156][164][164][164][164][164][164][164][164][164][164]"
  195. 2410 FORI=0TO5
  196. 2420 PRINT"[156]";KO$(I);"[146]: ";MI$(X,I)
  197. 2430 NEXT:PRINT
  198. 2440 RETURN
  199. 2450 :
  200. 2460 REM DISK/KASS
  201. 2470 PRINT"[129][164][157]K[146]ASSETTE/[145][164][157]D[146]ISKETTE ?"
  202. 2480 GETKD$:IFKD$<>"K"ANDKD$<>"D"ANDKD$<>CHR$(13)THEN2480
  203. 2490 IFKD$=CHR$(13)THEN2540
  204. 2500 IFKD$="K"THENPRINT"[156]KASSETTE ZURUECKSPULEN!"
  205. 2510 IFKD$="D"THENPRINT"[156]DISKETTE IN DRIVE !"
  206. 2520 PRINT,,,"[145]<RETURN>"
  207. 2530 GETX$:IFX$<>CHR$(13)THEN2530
  208. 2540 RETURN
  209. 2550 :
  210. 2560 REM EINZELADRESSE
  211. 2570 GOSUB2330
  212. 2580 PRINT,,,"<RETURN>"
  213. 2590 GETX$:IFX$<>CHR$(13)THEN2590
  214. 2600 RETURN
  215. 2610 :
  216. 2620 END
  217. 30000 PRINT"[147][129]                                        ";
  218. 30010 PRINT"       U. C. N. - K A R T E I  6 4      ";
  219. 30015 PRINT"                                        ";
  220. 30020 PRINT"            (C) 1988 BY U.C.N.          ";
  221. 30025 PRINT"                                        [146]";:RETURN
  222.